<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>20</cardCount>
<cardID>2098</cardID>
<listID>9259</listID>
<cantModify><true /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>on findPathglobal Pathput the length of (the long name of this stack) into tempput the length of (the short name of this stack) into temp2subtract temp2 from tempput char 8 to (temp-1) of (the long name of this stack) into Pathput "B-17 DATA:" after Pathend findPath--on findPathglobal pathput "BOMBER III邃｢:BOMBER III邃｢:B-17 DATA:" into pathend findPath--------------------------------------------------------------------------DIAGNOSTICS----------------------------------on startupglobal savedVolume,theMenuset the userlevel to 4set the usermodify to truehide scroll windowhide titlebarhide menubarhide msgif CHECKENVIRON() is not "OK" thenglobal dontclosestackput "true" into dontclosestackdomenu "quit HyperCard"exit to hypercardend ifRESETMONITORFOUR --窶｢MonitorFade down occursput volume() into savedVolumesndplay "initdriver"if last item of the screenRect >480 thenglobal bdput Backdrop ("new","serialNumber=20148329-594","show") into bdput "Sound up +,Sound down -,Background,Pause Game,New Game,Quit&Save" into theMenuelse put "Sound up +,Sound down -,(Background,Pause Game,New Game,Quit&Save" into theMenuend startupON OPENSTACKglobal path,landedset cursor to nonehide scroll windowhide titlebarhide menubarhide msghide cd fld "credits"LOCK SCREENset the hilite of bg btn "file" to trueset the userlevel to 3FINDPATHCHECKPICTS --loads splash screenput false into landedOLDGAMEunlock screenMonitorFade up,2end openstackon RESETMONITORFOURglobal SavedVideoput ChangeDepth(report, all) into SavedVideoif item 3 of ChangeDepth(report, main) = "4" thenMonitorFade down,1exit RESETMONITORFOURend ifif item 2 of ChangeDepth(test, main, 1, 4) 竕 true thenif item 2 of ChangeDepth(test, main, 1, 8) 竕 true thenERRMACelseMonitorFade down,1get ChangeDepth(change, main, 1, 8)if item 2 of it = "UnableToSetToThatColorDepth" then ERRMACend ifelseanswer "Your Monitor can be optimized for improved performance."&ﾂｬ" Shall we temporaraly reset it for you ?" with "Cancel" or "Reset"MonitorFade down,1if it is "Reset" then get ChangeDepth(change, main, 1, 4)else get ChangeDepth(change, main, 1, 8)if item 2 of it = "UnableToSetToThatColorDepth" then ERRMACend ifend RESETMONITORFOURon errMacbeepMonitorFade up,500answer "Encountered problem resetting this monitor to the proper colordepth. Try Reseting this Monitor to"ﾂｬ& " 16 or 256 colors in the Monitors Control in your Control Panel." with "Quit" or "Continue"if it is "Quit" thendomenu "Quit HyperCard"exit to HyperCardelse MonitorFade down,100end errMacfunction checkEnviron --窶｢LINE 1 OUT--窶｢if char 1 of (the short date) >6 then answer "This beta version no longer valid" with "OK" --窶｢OUTif the heapspace <3600000 then errMemory "5500K"else if the diskspace < size of this stack * 2.5 then errdiskspaceelse return "OK"end checkEnvironon errdiskspacebeepanswer "Your hard disk is almost full. Make sure you have at least 5 MB available, then relaunch BOMBERIII"end errdiskspaceon errmemory partitionsizebeepanswer "Not enough memory available to run BOMBERIII (5500k). You may have another"&&ﾂｬ" application open. Quit it, and relaunch BOMBERIII."end errmemoryon errcolorglobal gOKtocolorizeanswer "Warning: The environment BOMBERIII" &&ﾂｬ"is running in is not able to support color." & return & "Reason:" && gOKtocolorizeend errcoloron checkpictsglobal pathcolorizeHC "new",path&"splashClouds","0,166"if the result 竕 empty thenMonitorFade up,500unlock screenunlock screenanswer "Couldn't load data. Make sure this BOMBERIII邃｢ APPLICATION is IN its' BOMBERIII邃｢ FOLDER." with "OK"domenu "quit HyperCard"exit to hyperCardend ifend checkpictson domenu what-----end game handled in "on closeStack"-----------if what is "compact stack" and not the cantmodify of this stack thensndplay "disposedriver"pass domenusndplay "initdriver"end ifPASS DOMENUend domenuon keydown whichkeyglobal subdata,theMenu,oldvol --,playerif whichkey = "¥" then monitorFade up,500else if whichkey is "=" thenif volume()<7 then get volume(volume()+1)put volume() into oldvolif volume() >6 thenput "(Sound up +" into item 1 of themenuend ifput "Sound down -," into item 2 of themenuelse if whichkey is "-" thenif volume() >0 then get volume(volume()-1)put volume() into oldvolif volume() <1 thenput "(Sound down -," into item 2 of themenuend ifput "Sound up +" into item 1 of themenuELSE IF WHICHKEY IS "{" THEN ANSWER "VERS.3.2.7 b" WITH "OK"else if whichkey is "3" and the commandkey is down and the shiftkey is down then pass Keydownpass keydownend keydownon arrowkey whichkeyend arrowkeyon functionkey whichkeyend functionkey---------------------------------------on storeglobalsglobal pathglobal crew,pilotRank,missions,missionRecord,kills,oldvol --(lines 1-7)global planeName,totalPoints,deadPlanes,casualties,medalsput crew&return&pilotRank&return&missions&return&missionRecord&return&kills into GLOBALSput return&oldvol&return&"EMPTY LINE"&return&planeName&return&totalPoints&return&deadPlanes after GLOBALSput return&casualties& return&medals after GLOBALSopen file path&"Log"write GLOBALS to file path&"Log"close file path&"Log"end storeglobalsON CLOSESTACKglobal bd,SavedVideo,savedVolume,dontclosestack,path,missionsif dontclosestack is "true" then exit CLOSESTACKif line 1 of missions >1 thenmonitorfade down,1go cd "theEnd"else monitorfade down,100sndplay "disposedriver"lock messagesgo cd "Splash"colorizeHC "new",path&"splashBack","184,174"go this cdshow cd fld "credits"-- STOREGLOBALSget volume(savedVolume)if SavedVideo is not empty thenrepeat with i = 1 to the number of lines in SavedVideoput item 1 of line i of SavedVideo into whichMonitorput item 2 of line i of SavedVideo into modeput item 3 of line i of SavedVideo into depthget ChangeDepth(change,whichMonitor, mode, depth)end repeatend ifMonitorFade up,500STOREGLOBALSwait 120--doMenu "Show All"pass closeStackEND CLOSESTACK-----------------------------------on newGameglobal pathglobal crew,cewData,pilotRank,missions,missionRecord,kills,oldvol,deadPlanesglobal planeName,landed,totalPoints,casualties,medals,remarks------------------------open file path&"Log"write empty to file path&"Log"close file path&"Log"--------------------put empty into crew --窶｢clear these firstput empty into crewDataput empty into missionsput empty into missionRecordput empty into kills --窶｢and theseput empty into medalsput empty into remarksput empty into planenameput empty into deadPlanesput false into landedput 0 into totalPointsput "Lieutenant,," into pilotRankput "0-"&100000 +random(800000) into item 2 of pilotRankput "Lieut." into item 3 of pilotRankget line random(3) of fld "crews" --窶｢ holds potential crew names-- random(5) of fld "crews"repeat with i = 1 to 10put item i of it into line i of crew --seeds names of crewput "0" into line i of missionsput "0" into line i of killsput empty into line i of casualtiesend repeatput empty into line 1 of killsput empty into line 2 of killsput empty into line 3 of killsput empty into line 5 of killsrepeat with i = 1 to 25put empty into line i of missionRecord --窶｢set up missionrecord with 25 empty linesend repeatif oldvol is empty then put "5" into oldvolget volume(oldvol)-- put "Sound up +,Sound down -,Background,Pause Game P,New Game,Quit&Save Q" into theMenu----------------------end newGameon oldGameglobal path,c
